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INIFCB 16-Sep-1984 01:07: VAX-11 0-742 2 
aaa ra es oe iA.SRCJINIFCB.B32:1 9" (1 


eer LANGUAGE (BL1$$32) 
DENT 2 be 883 : 
BEGIN 


' 
lsunreneeneneeetensennennentententerterrereereerertnetnerentennnetentnnrnetes 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY : 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


it 
FURNISHED UNDER A LICENSE AND MAY BE USED AND coe ree 


Sssssssss 


NAME WIN @OOONAULS ADR OO OONOULS Wr 


'® THIS SOFTWARE IS 

'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WI 

'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
re TRANSFERRED. 

'@ 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEN 
7 CORPORATION. 

'® 

'® DIGITAL ASSUMES NO RESPONS 
7 SOFTWARE ON EQUIPMENT WHIC 
'e 

'@ 


E 
T 


OOOCCOCCOCCoOoooooo 


BILITY FOR THE USE OR RELIABILITY OF ITS 


I 
H NOT SUPPLIED BY DIGITAL. 


@e2@eneeeeeeeeeneeeannnann 


=OOONAVNEWN “QO OONAUES WN SH OOONOULS WN 
OOooooooo 


a a ee ee a ee a ed ad dd dd dd od I I OOOO 


Be Oe Se Se Se Be Se Se Se Ge Ss Os Ge Se Ge BF Se Se Se Se Fe FF Se Be FSF Se Os Oe Ss Oe Be Se Ss Os Se Os Oe Oe Os Se Ss SFOs Se Se Se Ss Oe SESE Se Se Se Se eee 
a) Oe NINN a i ead 


$ Lee RRR ARR AAA AAA AREER AEA EAA AEA AAA AERA AAA 

8 3 '4¢ 
0 3 ! 
e % : FACILITY: F11ACP Structure Level 1 

3 0 33 ABSTRACT: 

7 0037 i These routines create and initialize a file control block 

8 0038 : from the given file header. 

9 0039 ! 

? Boe} : ENVIRONMENT: 

§ 9k 4 i STARLET operating system, including privileged azeten services 
004 4 and internal exec routines. These routines must be called in 

¢ : : kernel mode. 

6 4 ! 

: 0069 1 in 

cee 

30 050 AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1976 16:48 

3 O5¢ MODIFIED BY: 

ez 837 i v03-002 LMP0221 L. Mark Pilant 31-Mar-1984 12:16 

55 0036 : Add support for an ORB in the cB. 

3 A] i v03-001 $TJ3108 Steven T. Jefireys, 24-Jun-1983 


A0100 ACG0001 


af 


LIBRARY ‘SYSSLIBRARY:L18.L32'; 
REQUIRE ‘SRCS$:FCPDEF .B32'; 


CSEPERESSE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


4 


Andrew C. Goldstein 


ifbeoctgge 93:00:36 


Fix Link truncation error. 


1 


Previous revision history moved to F11A 


bt eksume 


O-Oct-1978 20:01 
REV 


° 
REJINIFCB.B32:1°%" (15 


a —_ 
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04-000 1$-Se0-1984 930gi8s bt cSumGhASfeRc cy tiaccneainiece.e32:1°%° ¢23 


: $8 ¢ } GLOBAL ROUTINE INIT_FC@ (FCB, HEADER) : NOVALUE = 

tee 1 I+ 

3 ie 5. oF 

3 t 1 1 FUNCTIONAL DESCRIPTION: 

; 03 8 This rout ine initializes the given FCB according to the given 
; 78 17 e header. 

3 78 1 1°! CALLING SEQUENCE: 

3 oO 35 ; INIT_FCB (ARG1, ARG2) 

: 81 94 1 | INPUT PARAMETERS: 

: 8¢ 95 1! ARG1: FCB adcress 

; S7 38 : : ARG2: header address 

; «85 0 9R 1 | IMPLICIT INPUTS: 

; : B7 85 : HEADER_LBN contains LBN of header block 

: «88 0401 1 | OUTPUT PARAMETERS: 

3 89 b2 0g 1! NONE 

; oo 3% 

$ 91 404 1 ! IMPLICIT OUTPUTS: 

3 .] 405 1! NONE 

3 9 rt'$ 1! 

$ 9% 40 1 ! ROUTINE VALUE: 

3 95 408 1! NONE 

; | «96 ret 1! 

3 97 410 1 ! SIDE EFFECTS: 

; «#698 Bet 3s FCB initialized 

3; WP 1 1! 

: 100 041 1 !-- 

: 101 0414 1 

; I0¢ 0415 BEGIN 

s 10 0416 

: 104 0417 MAP 

: 105 0418 FCB : REF BBLOCK, ! FCB argument 

$ 198 oth HEADER : REF BBLOCK; ! file header arg 

: 108 063 LOCAL 

; 109 4 ¢ FCB_ORB : REF BBLOCK, ! Address of the ORB within the FCB 
3 139 be ? ae : REF BBLOCK, pointer to header sap area 
g vm ' count of map pointer 

: 118 425 MAP~POINTER : REF BBLOCK, pointer to Seen map 

: il , $ FILESIZE; ' size of file in blocks 

: 115 8 EXTERNAL 

: 11g 4 4 HEADER_LBN : ADDRESSING_MODE (GENERAL); ' LBN of file header 
: 118 1 ! Set up the ORB address. 

: 120 4 FCB_ORB = FCBLFCBSR_ORB); 

: 1 2 435 ' Get the known constants and the simple stuff from the file header 
: ; ? : (i.e., header LBN, file ID, starting VBN, file owner and file protection). 
: 125 438 2 


< 
<= 


- SD ee Fm Oh Tse 


Fe ea coc 


$ F CBF CBSL_HDLBNI = .HEADER_LBN; 
FCB FCBSH~F 1D _NUM] = .HEADERTFH1 $W_FID_ NUM): 
8 FCBLFCBSW F1D-SeQ = .HEADERLFH1$W_FID-SEQ]; 
FCB_ORB ORBSW-UICMEMBERJ= .HEADERLFH1$B8_UICMEMBER); 
0 FCB-ORB anegy-bror 6) = .HEADERCFH1$B_UICGROUPJ; 
1 FCB-ORBLORBS$V_PROT_16] J 
g FCB-ORB ORB Sw oT] “HEADERCFH1$W FILEPROTI: 
IF jHEADERL FuTSy $P00L3 THEN FCBCFCB$V_SPOOL) = 
4 FcetF hii: mia LK Lk = ROT C BBLOCKCHEADERCFHISw_ RECATTR], FATSL_EFBLKI, 
AND . CKEAERDERTEH IS RECATTR], FATSW FFBYTE EQL 0 
THEN. Feb Cast LEFBLK) = [FCBCFCBSL_EFBLK] - 
! Now scan the map area. Get the starting LBN if the file is contiguous 


and count up the file size from the retrieval pointers. 


MAP _AREA = .HEADER + ,HEADERCEHISB MPOFFSETI#2; 
POINTER = .MAP_AREA + FM1SC_POINTE 
rcetrCBSu. SEGN] = [MAP_ARE ACFRISB. _EX.. SEGNUM); 


FCBCFCBSL ue ¢ ! assume non-contiguous file 
IF {HEADER FH1SV_ Cont16) 


o 
= 


FEBLEC FCB$L_STLBN) = .MAP POINTERCFM1 $W LOWLBNJ; ! get low order LBN 
coeur CFCBSC_ STL8NI)<16,85 = .MAP _POINTERCFM1$B._ HIGHLBNJ; ! and high order 


ESIZE = 0; 
R “rst COUNT FROM .MAP_AREACFM1$B_INUSEJ/2 TO 1 DO 
E 


a a a kk kd dd 
WN SO ODONOUESWN “OO BNOULSWN OOM 


yA A hd AN et ee te ae ee at a 


BEGIN 
FILESIZE = .FILESIZE + .MAP_POINTERCFM1$B_COUNT] + 1; 
a TER = .MAP POINTER # 4; 
FCBCFCBS$L -FILESIZE] = .FILESIZE; 
IF _ .FCBCFCBSL_EFBLKI GTR .FILESIZE 
THEN FCBCFCBSC _EFBLK] = FILESIZE; 
END; ! end of routine INIT_FCB 


-TITLE te he 
IDENT \V04-000\ 


.EXTRN HEADER_LBN 
-PSECT $CODES,NOWRT,2 


F 
MOVAB 88(R3), FB Re 
-LBN, 2(R3) 
6(R3) 
FCB_ORB) 


Wo 
a al 


MOV 
MOVZBW 


-ENTRY INIT_FCB, Save R2,R3,R4,R5 
MOV 


14 
16-Sep-1984 01:07: VAX-11 Bliss-32 V4.0-742 
1 =3007}3RE 94:90:38 DISKSVMSMASTER: CF11A.SRCIJINIFCB.B32; (39 


4 
(2) 


rel 


14 
INIFCB 18-56 -1984 01:07: VAX=-11 Bliss-32 V4.0-742 Page 
1580 1 ~3007 1387 94 30038 DISKSVMSMASTER:CF11A.SRCJINIFCB.832;1 . (23 
2 A 09 OA 1F MOVZ7BW 9(R2), 2(FCB_ORB) 3 0443 
08 A Of 4 4 It: #i, 11¢FCB_ORB) + 0444 
18 OA OA A2 B 8 MOVW otre) 4TFCB_ORB) + 0445 
04 9p A 04 0 BBC a4, 13(R2), 1$ + 0446 
A 9 $8 BisBe #16 4(R35 : 
5 3c 1$: MOV 60(R3) R + 0447 
65 16 A2 10 9 A ROTL #16, 22(R2), (RS) : 
07 1 F BE QL $ + 0448 
1A OA 8 41 TSW 6(R2) + 0449 
0 44 BNE) : 
6 4 DECL (RS) + 0450 
0 01 ag A 00048 2$: MOVZE’. 1(R2), RO + 0456 
6240 3€ ac MOVAW (Re) EROI MAP_AREA : 
OA Al 9€ 09 VAB- 10(R1) RAP _POINTER + 0457 
2a OA 61 98 00054 MOVZBW (MAP_AREA),~42(R3) : 0458 
30 A3d D4 00058 CLRL = 58 (R3) + 0460 
dc A 93 0058 ist 12(R2) + 0461 
39 A3 02 =A 3 O9¢6 MOVZWL StMAP POINTER), 48(R3) + 0464 
2 «AS : 006 MOVB  (MAP_POINTER), 50(R3) + 0465 
D4 00069 3$ CLRL = FALESIZE + 0468 
54 08 Al 9A 00068 MOVZBL 8(MAP_AREA), R4 + 0469 
54 02 C6 006 DIVL2 #2, R& : 
4 D6 00072 INCL § MAP_COUNT ; 
0c 11 00074 BRB 5$ : 
51 01 Ag 9A 00076 4$ MOVZBL 1(MAP_POINTER), R1 + 0471 
38 01 A142 9 00074 MOVAB 1(RIDTFILESIZES, FILESIZE ; 
5 04 CO 0007F ADDL2 #4, MAP_POINTER + 0472 
F1 4 F 90082 5$ SOBGTR MAP_COUNT, 4$ + 0469 
380A 2 DO 0008 MOVL FALESIZE 56(R3) 3 0474 
52 65 01 00089 CMPL (R5), FILESIZE : 0476 
03 15 0008C BLEG 6$ : 
65 2 pO O008E MOVL  FILESIZE, (RS) > 0477 
04 00091 6$: RET : 0479 
; Routine Size: 146 bytes, Routine Base: S$CODES + 0000 
: 167 048 
: 168 0481 1 END 
: 169 0482 0 ELUDOM 
: PSECT SUMMARY 
3 ame ytes ributes 
N Byt Attribut 
: SCODES 146 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


3 Library Statistics 


—_—__ — ---—- —_—, 


IHERB, i$rBeor9es O1:O0:35  YANCLT aLteEe Re YAsh742, og gap Page 6) | 


eececece Symbols -<------ Pages Processing 
File Total Loaded “Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 31 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INIFCB/OBJ=OBJ$: INIFCB MSRC$: INIF CB/UPDATE=(ENH$: INIFCB) 


; Size: 146 code + 0 data bytes 


Run Time :07. 
Elapsed Time: :26.3 
Lines/CPU Min: 64 
a 17410 
meee Be 110 pages 
Compi Bs na Complete 
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